Private Sub ToolbarFrm_ButtonClick(ByVal Button As Object)
        Select Case Button
               Case ""
                     cmd_Save
               Case "ر"
                     DoCmd.Close
         End Select
End Sub
Private Sub cmd_Save()
Dim rst As DAO.Recordset
If IsNull(Me.lbmc) Then
          MsgBox "뱨!", vbCritical, "ʾ"
          Me.lbmc.SetFocus
          Exit Sub
End If
Me.Refresh
If Acchelp_StrDataIsExist("tblCodeBxlb", "lbmc", Me.lbmc) = True Then
          MsgBox "Ѿڣ", vbCritical, ""
          Me.lbmc.SetFocus
          Exit Sub
End If
If MsgBox("ȷҪ?", vbOKCancel + vbInformation, "ʾ") = vbOK Then
         Set rst = CurrentDb.OpenRecordset("tblCodeBxlb", dbOpenDynaset)
         rst.AddNew
         rst("lbId") = acchelp_autoid("Y", 2, "tblCodeBxlb", "lbId")
         rst("lbmc") = Me.lbmc
         rst.Update
         rst.Close
        Set rst = Nothing
        'ˢ
        If IsLoaded("usysfrmMain") Then
               DoCmd.Echo False
               Forms!usysfrmMain!frmChild.SourceObject = "frm_CodeBxlb_child"
               DoCmd.Echo True
        End If
        MsgBox "ɹ!", vbInformation, "ʾ"
        Me.lbmc = Null
End If
End Sub
